home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / A-B / Astro2.cpt / Astrologer's Toolbox 2.2 / background_2598.txt next >
Text File  |  1990-12-13  |  2KB  |  73 lines
  1. -- background: 2598 from stack: in.2
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: toolBoxBackground
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=0 top=315 right=342 bottom=43
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1011 / 1011
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Go Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect wipe left very slowly
  23.   Go to card "Goodbye"
  24.   -- "It's only a paper moon"
  25.   If (highLight of card button "Turn off sound" of card "First") is false then Play harpsichord tempo 200 "0e d4q de d5e dq de cq b4e ah 0e 0e d4q de c5 cq ce b4q ae gh" && "0q d4q de d5e dq d#e eq ce a4q ge f#q e5e dq f#4e gh"
  26.   wait until the sound is "done"
  27.   doMenu "Home"
  28. end mouseUp
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: A001
  34. -- rect: left=44 top=298 right=342 bottom=103
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 21449 / 21449
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Instructions
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   visual effect iris close very slowly
  46.   go to card "First"
  47.   Set the visible of card field "mask birth data entry" to false
  48.   Set the visible of card field "mask return" to false
  49. end mouseUp
  50.  
  51.  
  52. -- part 4 (button)
  53. -- low flags: 00
  54. -- high flags: A001
  55. -- rect: left=464 top=299 right=342 bottom=512
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 29114 / 29114
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Return
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.  
  67.   visual effect wipe right very slowly
  68.   go back
  69.   Set the visible of card field "Mask birth data entry" of card "First" to false
  70.  
  71. end mouseUp
  72.  
  73.